home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1998 January / PC Answers Issue 49 Cover CD January 1998.iso / Apps / Director / DATA.Z / Widget Wizard.dir / WidgtBehaviors_42_QTPlayToggle.ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  2.1 KB  |  64 lines
  1. property PlayMember, PlayMemberNum, StopMember, StopMemberNum, PlayRate, VideoSprite, savedPlayRate, PlayMemberName, StopMemberName
  2.  
  3. on Toggle me
  4.   if PlayRate <> 0 then
  5.     set savedPlayRate to PlayRate
  6.     set PlayRate to 0
  7.     setValue(me, 0)
  8.   else
  9.     set PlayRate to savedPlayRate
  10.     setValue(me, PlayRate)
  11.   end if
  12.   set the movieRate of sprite VideoSprite to the PlayRate of me
  13. end
  14.  
  15. on setValue me, v_me
  16.   if v_me = 0 then
  17.     set the member of sprite the spriteNum of me to the PlayMember of me
  18.   else
  19.     set the member of sprite the spriteNum of me to the StopMember of me
  20.   end if
  21. end
  22.  
  23. on mouseUp me
  24.   Toggle(me)
  25. end
  26.  
  27. on beginSprite me
  28.   set s to the spriteNum of me
  29.   set PlayMemberNum to member the PlayMemberName of me
  30.   set StopMemberNum to member the StopMemberName of me
  31.   set the StopMember of me to member the StopMemberNum of me
  32.   set the PlayMember of me to member the PlayMemberNum of me
  33.   set the PlayRate of me to the movieRate of sprite VideoSprite
  34.   if the PlayRate of me = 0 then
  35.     set savePlayRate to 1
  36.   else
  37.     set savePlayRate to 0
  38.   end if
  39.   if PlayRate <> 0 then
  40.     setValue(me, PlayRate)
  41.     set savedPlayRate to PlayRate
  42.   else
  43.     setValue(me, 0)
  44.     set savedPlayRate to 1
  45.   end if
  46. end
  47.  
  48. on getPropertyDescriptionList
  49.   set description to [:]
  50.   addProp(description, #VideoSprite, [#default: the currentSpriteNum + 4, #format: #integer, #comment: "Video Sprite:"])
  51.   addProp(description, #PlayMemberName, [#comment: "Member Name of Play Image:", #format: #bitmap, #default: "QTplay"])
  52.   addProp(description, #StopMemberName, [#comment: "Member Name of Stop Image:", #format: #bitmap, #default: "QTStop"])
  53.   return description
  54. end
  55.  
  56. on getBehaviorDescription
  57.   return "Toggle to control digital video sprite.  Drag to picture of stop image.  Will check what the video is doing and display the appropriate button." & RETURN & "PARAMETERS:" & RETURN & "ΓÇó Video Sprite - sprite number of video." & RETURN & "ΓÇó Play Image - number of castmember providing image displayed when QT is stopped."
  58. end
  59.  
  60. on getAssocMembers
  61.   set myPropList to [StopMemberName, "Widget Area"]
  62.   return myPropList
  63. end
  64.